module command_line

    implicit none

    private
    public :: get_m_value_from_CLI

contains

    !> 获取 M 值
    integer function get_m_value_from_CLI() result(m)
        character(len=32) :: arg

        call get_command_argument(1, arg)
        read (arg, *) m

    end function get_m_value_from_CLI

end module command_line
